|
1200
|
Is it possible to display the task bars with a gradient color
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091231")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
var_Chart:Bars:Copy("Task","TaskO")
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Pattern := exPatternGradientVBox | exPatternBox | exPatternShadow
var_Bar:StartColor := RGB(255,255,255)
var_Bar:EndColor := var_Bar:Color
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Original"),"TaskO",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Pattern Gradient"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Original"),"TaskO",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1199
|
How can I know the type of bars I can displays using predefined patterns
local var_Bar,var_Bar1,var_Bar2,var_Bar3,var_Bar4,var_Bar5,var_Bar6,var_Bar7,var_Bar8,var_Bar9 as IBar
local var_Bars as IBars
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091231")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
var_Bars := var_Chart:Bars
var_Bars:Add("Box"):Pattern := exPatternBox
var_Bars:Add("ThickBox"):Pattern := exPatternThickBox | exPatternBox
var_Bars:Add("DiagBox"):Pattern := exPatternThickBox | exPatternBDiagonal
var_Bars:Copy("Task","Shadow"):Pattern := exPatternFrameShadow | exPatternShadow
var_Bars:Copy("Task","TShadow"):Pattern := exPatternFrameShadow | exPatternThickBox | exPatternDiagCross
var_Bar := var_Bars:Add("HGrad1")
var_Bar:Pattern := exPatternBox
var_Bar:StartColor := RGB(255,255,255)
var_Bar:EndColor := RGB(0,0,255)
var_Bar1 := var_Bars:Add("HGrad2")
var_Bar1:Pattern := exPatternBox | exPatternShadow
var_Bar1:StartColor := RGB(255,255,255)
var_Bar1:EndColor := RGB(0,0,255)
var_Bar1:Color := RGB(0,0,255)
var_Bar2 := var_Bars:Add("HGrad3")
var_Bar2:Pattern := exPatternGradient3Colors | exPatternBox | exPatternShadow
var_Bar2:StartColor := RGB(255,255,255)
var_Bar2:EndColor := var_Bar2:StartColor
var_Bar2:Color := RGB(0,0,255)
var_Bar3 := var_Bars:Add("HGrad4")
var_Bar3:Pattern := exPatternThickBox | exPatternGradient3Colors | exPatternBox
var_Bar3:StartColor := RGB(255,255,255)
var_Bar3:EndColor := var_Bar3:StartColor
var_Bar3:Color := RGB(0,0,255)
var_Bar4 := var_Bars:Add("HGrad5")
var_Bar4:Pattern := exPatternFrameShadow | exPatternGradient3Colors | exPatternBox
var_Bar4:StartColor := RGB(0,255,0)
var_Bar4:EndColor := RGB(255,0,0)
var_Bar4:Color := RGB(0,0,255)
var_Bar5 := var_Bars:Add("VGrad1")
var_Bar5:Pattern := exPatternGradientVBox | exPatternBox
var_Bar5:StartColor := RGB(255,255,255)
var_Bar5:EndColor := RGB(0,0,255)
var_Bar5:Height := 14
var_Bar6 := var_Bars:Add("VGrad2")
var_Bar6:Pattern := exPatternGradientVBox | exPatternBox | exPatternShadow
var_Bar6:StartColor := RGB(255,255,255)
var_Bar6:EndColor := RGB(0,0,255)
var_Bar6:Color := RGB(0,0,255)
var_Bar6:Height := 14
var_Bar7 := var_Bars:Add("VGrad3")
var_Bar7:Pattern := exPatternGradient3Colors | exPatternGradientVBox | exPatternBox | exPatternShadow
var_Bar7:StartColor := RGB(255,255,255)
var_Bar7:EndColor := var_Bar7:StartColor
var_Bar7:Color := RGB(0,0,255)
var_Bar7:Height := 14
var_Bar8 := var_Bars:Add("VGrad4")
var_Bar8:Pattern := exPatternThickBox | exPatternGradient3Colors | exPatternGradientVBox | exPatternBox
var_Bar8:StartColor := RGB(255,255,255)
var_Bar8:EndColor := var_Bar8:StartColor
var_Bar8:Color := RGB(0,0,255)
var_Bar8:Height := -1
var_Bar9 := var_Bars:Add("VGrad5")
var_Bar9:Pattern := exPatternFrameShadow | exPatternGradient3Colors | exPatternGradientVBox | exPatternBox
var_Bar9:StartColor := RGB(0,255,0)
var_Bar9:EndColor := RGB(255,0,0)
var_Bar9:Color := RGB(0,0,255)
var_Bar9:Height := 14
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Box"),"Box",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Thick Box"),"ThickBox",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Thick Box Diag"),"DiagBox",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Shadow"),"Shadow",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Thick Shadow"),"TShadow",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Solid Gradient"),"HGrad1",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Pattern Gradient"),"HGrad2",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Pattern Gradient 3 Colors"),"HGrad3",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Solid Gradient 3 Colors"),"HGrad4",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Gradient Shadow"),"HGrad5",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Solid Gradient"),"VGrad1",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Pattern Gradient"),"VGrad2",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Pattern Gradient 3 Colors"),"VGrad3",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Solid Gradient 3 Colors"),"VGrad4",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Gradient Shadow"),"VGrad5",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1198
|
Is it possible to display the bars with a thicker border
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Chart:Bars:Copy("Task","TaskB"):Pattern := exPatternThickBox | exPatternShadow
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"TaskB",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010105"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1197
|
Is it possible to display the shadow for EBN bars
local var_Bar as IBar
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
var_Bar := oDCOCX_Exontrol1:Chart:Bars:Copy("Task","EBN")
var_Bar:Color := 0x1000000
var_Bar:Pattern := exPatternFrameShadow
oDCOCX_Exontrol1:Chart:Bars:Copy("Task","EBN2"):Color := 0x1000000
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"EBN2",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"EBN",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"EBN2",SToD("20010102"),SToD("20010105"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1196
|
Can I display a shadow for my bars
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Chart:Bars:[Item,"Task"]:Pattern := exPatternFrameShadow | exPatternShadow
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010105"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1195
|
How can I use the Color property for gradient bars
local var_Bar,var_Bar1 as IBar
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
var_Bar := oDCOCX_Exontrol1:Chart:Bars:Add("V")
var_Bar:Color := RGB(255,0,0)
var_Bar:StartColor := RGB(0,255,0)
var_Bar:EndColor := var_Bar:StartColor
var_Bar:Pattern := exPatternGradient3Colors | exPatternGradientVBox | exPatternBox
var_Bar:Height := -1
var_Bar1 := oDCOCX_Exontrol1:Chart:Bars:Add("H")
var_Bar1:Color := RGB(255,0,0)
var_Bar1:StartColor := RGB(0,255,0)
var_Bar1:EndColor := var_Bar1:StartColor
var_Bar1:Pattern := exPatternGradient3Colors | exPatternBox
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"V",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"H",SToD("20010102"),SToD("20010105"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1194
|
Is there any option to show bars with vertical gradient
local var_Bar as IBar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bar := oDCOCX_Exontrol1:Chart:Bars:[Item,"Task"]
var_Bar:Color := RGB(255,0,0)
var_Bar:StartColor := RGB(0,255,0)
var_Bar:EndColor := RGB(255,255,0)
var_Bar:Pattern := exPatternGradientVBox | exPatternBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"",nil)
|
|
1193
|
How can I define a new milestone bar
local var_Bar as IBar
local var_Bars as IBars
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bars := oDCOCX_Exontrol1:Chart:Bars
var_Bars:AddShapeCorner(12345,1)
var_Bars:AddShapeCorner(12346,2)
var_Bars:Copy("Milestone","M1"):StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
var_Bars:Copy("Milestone","M2"):StartShape := 0x3020 | exShapeIconSquare | exShapeIconRight
var_Bar := var_Bars:Copy("Milestone","MP")
var_Bar:StartShape := exShapeIconStar
var_Bar:StartColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Default"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Predefined"),"MP",SToD("20010103"),SToD("20010103"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Custom 1"),"M1",SToD("20010104"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Custom 2"),"M2",SToD("20010105"),SToD("20010105"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1192
|
How can I define my milestone bar, using my icons or pictures
local var_Bars as IBars
local var_Items as IItems
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bars := oDCOCX_Exontrol1:Chart:Bars
var_Bars:AddShapeCorner(12345,1)
var_Bars:[Item,"Milestone"]:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
|
|
1191
|
Is it possible to specify manually non-working days instead using the NonworkingDays as being repetitive
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exAllLines
var_Chart:FirstVisibleDate := SToD("20100101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:[Level,0]:DrawGridLines := true
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
var_Chart:NonworkingDays := 0
var_Chart:AddNonworkingDate(SToD("20100110"))
var_Chart:AddNonworkingDate(SToD("20100111"))
var_Chart:AddNonworkingDate(SToD("20100115"))
var_Chart:AddNonworkingDate(SToD("20100116"))
oDCOCX_Exontrol1:EndUpdate()
|
|
1190
|
Is it possible to hide specific days
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exAllLines
var_Chart:FirstVisibleDate := SToD("20100101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:[Level,0]:DrawGridLines := true
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
var_Chart:NonworkingDays := 128
var_Chart:AddNonworkingDate(SToD("20100110"))
var_Chart:AddNonworkingDate(SToD("20100111"))
var_Chart:AddNonworkingDate(SToD("20100115"))
var_Chart:AddNonworkingDate(SToD("20100116"))
oDCOCX_Exontrol1:EndUpdate()
|
|
1189
|
Is it possible to show or display the marked zones ONLY in the overview part of the control
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010114")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
var_Chart:MarkTimeZone("Z1",SToD("20010103"),SToD("20010104"),var_Chart:BackColor,";;Zone <b>1</b>")
var_Chart:MarkTimeZone("Z2",SToD("20010206"),SToD("20010207"),var_Chart:BackColor,";;Zone <b>2</b>")
var_Chart:MarkTimeZone("Z3",SToD("20010116"),SToD("20010119"),var_Chart:BackColor,";;Zone <b>3</b>")
var_Chart:OverviewShowMarkTimeZones := true
var_Chart:OverviewBackColor := RGB(220,240,240)
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010205"),SToD("20010208"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1188
|
Is it possible to show or display the marked zones in the overview part of the control
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010114")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
var_Chart:MarkTimeZone("Z1",SToD("20010103"),SToD("20010104"),16777056,nil)
var_Chart:MarkTimeZone("Z2",SToD("20010206"),SToD("20010207"),16744544,nil)
var_Chart:MarkTimeZone("Z3",SToD("20010116"),SToD("20010119"),16744544,nil)
var_Chart:OverviewShowMarkTimeZones := true
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010205"),SToD("20010208"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1187
|
Is there a quick way to determine if a bar belongs to a group
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010105"),SToD("20010107"),"K3",nil)
var_Items:GroupBars(h1,"K1",true,h2,"K2",true,nil,nil)
var_Items:GroupBars(h1,"K1",false,h2,"K2",false,nil,nil)
var_Items:GroupBars(h1,"K1",true,h3,"K3",true,nil,nil)
var_Items:GroupBars(h1,"K1",false,h3,"K3",false,nil,nil)
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,h1,"K1",exBarsGroup]) ))
|
|
1186
|
I am using the ScrollRange property to limit the chart's visible area, but it does not work as expected. What could be wrong
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 56
var_Chart:[ScrollRange,exStartDate] := SToD("01000101")
var_Chart:[ScrollRange,exEndDate] := SToD("99991231")
var_Chart:FirstVisibleDate := SToD("20100428")
oDCOCX_Exontrol1:[ScrollPartCaption,exHChartScroll,exLowerBackPart] := AsString(oDCOCX_Exontrol1:Chart:[ScrollRange,exStartDate])
oDCOCX_Exontrol1:[ScrollPartCaptionAlignment,exHChartScroll,exLowerBackPart] := LeftAlignment
oDCOCX_Exontrol1:[ScrollPartCaption,exHChartScroll,exUpperBackPart] := AsString(oDCOCX_Exontrol1:Chart:[ScrollRange,exEndDate])
oDCOCX_Exontrol1:[ScrollPartCaptionAlignment,exHChartScroll,exUpperBackPart] := RightAlignment
oDCOCX_Exontrol1:EndUpdate()
|
|
1185
|
Are you planning to add a AddNonworkingDate / AddNonworkingDay for separate items
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowChartScrollPage := true
oDCOCX_Exontrol1:Columns:Add("Non-Work")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20090404")
var_Chart:[PaneWidth,false] := 52
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Default")
var_Items:[ItemNonworkingUnits,var_Items:AddItem("Test 1"),false] := "shortdate(value) in (#4/5/2009#,#4/6/2009#)"
var_Items:[ItemNonworkingUnits,var_Items:AddItem("Test 2"),false] := "shortdate(value) in (#4/6/2009#,#4/7/2009#)"
var_Items:[ItemNonworkingUnits,var_Items:AddItem("Test 3"),false] := "shortdate(value) in (#4/7/2009#,#4/9/2009#)"
var_Items:AddItem("Default")
oDCOCX_Exontrol1:EndUpdate()
|
|
1184
|
How can I enlarge the EBN being applied to an object
local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 32
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(2,"c:\exontrol\images\normal.ebn")
var_Appearance:Add(1,"CP:2 -3 -2 3 2")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20020101")
var_Chart:SelBarColor := 0x1000000
var_Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20020102"),SToD("20020104"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20020106"),SToD("20020110"),"B",nil)
var_Items:AddBar(h,"Task",SToD("20020111"),SToD("20020114"),"C",nil)
var_Items:[ItemBar,h,"A",exBarSelected] := true
var_Items:[ItemBar,h,"B",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1183
|
I am using EBN to display my bars but the bars shows in black in the overview area. Is there any option to specify a different color in the overview part of the control
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:[Item,"Task"]:Color := 0x1000000
var_Chart:[PaneWidth,false] := 48
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:FirstVisibleDate := SToD("20010111")
var_Chart:LevelCount := 2
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),1,nil)
var_Items:[ItemBar,h,1,exBarOverviewColor] := 8821418
var_Items:AddBar(h,"Task",SToD("20010202"),SToD("20010204"),2,nil)
var_Items:[ItemBar,h,2,exBarOverviewColor] := 8821418
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010202"),SToD("20010204"),"",nil)
var_Items:[ItemBar,h,"",exBarOverviewColor] := 8821418
oDCOCX_Exontrol1:EndUpdate()
|
|
1182
|
I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 0
var_Chart:[Label,exWeek] := "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
var_Chart:[LabelToolTip,exWeek] := "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:FirstWeekDay := exMonday
var_Chart:MonthNames := "gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre"
var_Chart:WeekDays := "domenica lunedì martedì mercoledì giovedì venerdì sabato"
var_Chart:ToolTip := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
1181
|
I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 0
var_Chart:[Label,exWeek] := "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
var_Chart:[LabelToolTip,exWeek] := "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:FirstWeekDay := exMonday
var_Chart:MonthNames := "januari februari maart april mei juni juli augusts september oktober november december"
var_Chart:WeekDays := "zondag maandag dinsdag woensdag donderdag vrijdag zaterdag"
var_Chart:ToolTip := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
1180
|
I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area (method 1)
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 0
var_Chart:[Label,exWeek] := "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096"
var_Chart:[LabelToolTip,exWeek] := "<%d%>.<%mmmm%> <%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>"
var_Chart:FirstWeekDay := exMonday
var_Chart:MonthNames := "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
var_Chart:WeekDays := "Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag"
var_Chart:ToolTip := "<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>"
var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
1179
|
I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 0
var_Chart:[Label,exWeek] := "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
var_Chart:[LabelToolTip,exWeek] := "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:FirstWeekDay := exMonday
var_Chart:MonthNames := "janvier février mars avril mai juin juillet août septembre octobre novembre décembre"
var_Chart:WeekDays := "dimanche lundi mardi mercredi jeudi vendredi samedi"
var_Chart:ToolTip := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
1178
|
How can I determine the last visible date in the chart
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( "First" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:FirstVisibleDate) ))
OutputDebugString(String2Psz( "Last" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[DateFromPoint,1,-1]) ))
RETURN NIL
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
1177
|
How can I filter programatically using more columns
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Car")
var_Columns:Add("Equipment")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "Air Bag"
var_Items:[CellValue,var_Items:AddItem("Toyota"),1] := "Air Bag,Air condition"
var_Items:[CellValue,var_Items:AddItem("Ford"),1] := "Air condition"
var_Items:[CellValue,var_Items:AddItem("Nissan"),1] := "Air Bag,ABS,ESP"
var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "Air Bag, ABS,ESP"
var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "ABS,ESP"
var_Column := oDCOCX_Exontrol1:Columns:[Item,"Car"]
var_Column:FilterType := exFilter
var_Column:Filter := "Mazda"
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,"Equipment"]
var_Column1:FilterType := exPattern
var_Column1:Filter := "*ABS*|*ESP*"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1176
|
Do you have scheduling functionality in Gantt (meaning scheduling several activities (bars) depending on their start and finish dates with considering dependencies to other activities
METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
// BarResize event - Occurs when a bar is moved or resized.
oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:Add("Task")
IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}:[Def,exCellValueToItemBarProperty] := 258
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 96
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddLink("L1",h1,"",h2,"")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"",nil)
var_Items:AddLink("L2",h2,"",h3,"")
var_Items:[Link,"L2",exLinkText] := "FF"
var_Items:[Link,"L2",exLinkStartPos] := 2
var_Items:[Link,"L2",exLinkEndPos] := 2
h4 := var_Items:AddItem("Task 4")
var_Items:AddBar(h4,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddLink("L3",h4,"",h3,"")
var_Items:[ItemBar,0,"<*>",exBarKeepWorkingCount] := true
var_Items:SchedulePDM(var_Items:FirstVisibleItem,"")
oDCOCX_Exontrol1:EndUpdate()
|
|
1175
|
How can I show the ticks for a single slider field
local var_Editor as IEditor
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Slider")}:Editor:EditType := SliderType
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(10)
var_Editor := var_Items:[CellEditor,var_Items:AddItem(20),0]
var_Editor:EditType := SliderType
var_Editor:[Option,exSliderTickFrequency] := 10
var_Items:AddItem(30)
oDCOCX_Exontrol1:EndUpdate()
|
|
1174
|
Is it possible to show ticks for slider fields
local var_Editor as IEditor
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Slider")}:Editor
var_Editor:EditType := SliderType
var_Editor:[Option,exSliderTickFrequency] := 10
oDCOCX_Exontrol1:Items:AddItem(10)
|
|
1173
|
How can I group two bars so the distance between them is limited to a specified range
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 48
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060924"),nil,nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Unknown",SToD("20060925"),SToD("20060928"),nil,nil)
var_Items:AddLink("L1",h1,"",h2,"")
var_Items:GroupBars(h1,"",false,h2,"",true,31,"1;2")
OutputDebugString(String2Psz( "The distance between A and B is limited between 1 and 3 days" ))
OutputDebugString(String2Psz( "The B is always after the A" ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1172
|
How can I group two bars so the distance between them is flexible but never less than a specified value
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 48
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060924"),nil,nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Unknown",SToD("20060926"),SToD("20060929"),nil,nil)
var_Items:AddLink("L1",h1,"",h2,"")
var_Items:GroupBars(h1,"",false,h2,"",true,39,"2")
OutputDebugString(String2Psz( "The distance between A and B is never less than 2 days" ))
OutputDebugString(String2Psz( "The B is always after the A" ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1171
|
How can I group two bars so the distance between them is flexible
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 48
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060924"),nil,nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Unknown",SToD("20060926"),SToD("20060929"),nil,nil)
var_Items:AddLink("L1",h1,"",h2,"")
var_Items:GroupBars(h1,"",false,h2,"",true,39,nil)
OutputDebugString(String2Psz( "The distance between A and B is flexible, unlimited" ))
OutputDebugString(String2Psz( "The B is always after the A" ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1170
|
How can I group two bars so the interval between them is fixed
local var_Chart as IChart
local var_Items as IItems
local h,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 48
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20060921"),SToD("20060924"),"T1","A")
var_Items:AddBar(h,"Unknown",SToD("20060926"),SToD("20060929"),"T2","B")
var_Items:AddLink("L",h,"T1",h,"T2")
var_Items:[Link,"L",exLinkGroupBars] := 27
var_Items:[Link,"L",exLinkShowDir] := false
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Unknown",SToD("20060926"),SToD("20060929"),"T2","B")
var_Items:AddLink("L2",h,"T1",h2,"T2")
var_Items:[Link,"L2",exLinkGroupBars] := 27
var_Items:[Link,"L2",exLinkShowDir] := false
OutputDebugString(String2Psz( "The distance between bars is constant" ))
OutputDebugString(String2Psz( "The B is always after the A" ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1169
|
How can I group two bars when linking, so moving the first bar will makes the second to move accordingly
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 48
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060924"),"","A")
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Unknown",SToD("20060926"),SToD("20060929"),"","B")
var_Items:AddLink("L1",h1,"",h2,"")
var_Items:[Link,"L1",exLinkGroupBars] := 39
OutputDebugString(String2Psz( "The distance between A and B is flexible, unlimited" ))
OutputDebugString(String2Psz( "The B is always after the A" ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1168
|
Is it possible to be notified when the user clicks an anchor element a hyperlink in the date-time zone
METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
// AnchorClick event - Occurs when an anchor element is clicked.
OutputDebugString(String2Psz( "Click: " ))
OutputDebugString(String2Psz( AsString(AnchorID) ))
RETURN NIL
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:MarkTimeZone("Z",SToD("20010102"),SToD("20010105"),15753471,";32;Caption <a1><b>1</b></a>;1;Caption <a2><b>2</b></a>;17;Caption <a3><b>3</b></a>")
oDCOCX_Exontrol1:EndUpdate()
|
|
1167
|
Is it possible to be notified when the user clicks a date-time zone
METHOD OCX_Exontrol1Click() CLASS MainDialog
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
OutputDebugString(String2Psz( "Click: " ))
OutputDebugString(String2Psz( AsString(var_Chart:[TimeZoneFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:MarkTimeZone("Z",SToD("20010102"),SToD("20010105"),16711680,";32;DATE-TIME<br> ZONE")
oDCOCX_Exontrol1:EndUpdate()
|
|
1166
|
Is is possible to display multiple captions in the same date-time zone
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:MarkTimeZone("Z",SToD("20010105"),SToD("20010108"),12895487,";;Caption <b>1</b>;1;Caption <b>2</b>;17;Caption <b>3</b>")
oDCOCX_Exontrol1:EndUpdate()
|
|
1165
|
Is is possible to align on the top the caption for the date-time zone
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:MarkTimeZone("Z",SToD("20010105"),SToD("20010108"),12895487,";;UpperCenter;1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1164
|
Is there any option to display a picture on the date-time zone
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\card.png"
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:MarkTimeZone("Z",SToD("20010105"),SToD("20010108"),12895487,";;<c><img>pic1</img><br><c>picture")
oDCOCX_Exontrol1:EndUpdate()
|
|
1163
|
Is there any option to display a text or a HTML caption on the date-time zone
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:MarkTimeZone("Z1",SToD("20010101"),SToD("20010104"),12895487,";;zone <b>1</b>")
var_Chart:MarkTimeZone("Z2",SToD("20010105"),SToD("20010108"),12895487,";;zone <b>2</b>")
oDCOCX_Exontrol1:EndUpdate()
|
|
1162
|
How can I display the date-time zone using a semi-transparent EBN object
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
var_Chart:MarkTimeZone("Z1",SToD("20010102"),SToD("20010103"),16777056,";;Solid")
var_Chart:MarkTimeZone("Z2",SToD("20010107"),SToD("20010110"),16777216,"50;;EBN")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010108"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1161
|
How can I display the date-time zone using an EBN or a skin instead a solid color
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
var_Chart:MarkTimeZone("Z1",SToD("20010102"),SToD("20010103"),16777056,";;Solid")
var_Chart:MarkTimeZone("Z2",SToD("20010105"),SToD("20010108"),16777216,";;EBN")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010108"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1160
|
How can I display the date-time zone using a pattern instead a solid color
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
var_Chart:MarkTimeZone("Z1",SToD("20010102"),SToD("20010103"),16777056,";;Solid")
var_Chart:MarkTimeZone("Z2",SToD("20010106"),SToD("20010107"),16777056,";12;Pattern")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010108"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1159
|
How can I display the date-time zone using a transparent color
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
var_Chart:MarkTimeZone("Z1",SToD("20010102"),SToD("20010103"),16777056,";;Opaque")
var_Chart:MarkTimeZone("Z2",SToD("20010106"),SToD("20010107"),16777056,"50;;Semi-Transparent")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010108"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1158
|
The date time zone is shown behind the bars, is there any way to show it over
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
var_Chart:MarkTimeZone("Z1",SToD("20010102"),SToD("20010103"),16777056,nil)
var_Chart:MarkTimeZone("Z2",SToD("20010106"),SToD("20010107"),16777056,"1")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010108"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1157
|
How can I get ifnromation about a date-time zone
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
OutputDebugString(String2Psz( AsString(var_Chart:[TimeZoneInfo,var_Chart:[TimeZoneFromPoint,-1,-1]]) ))
RETURN NIL
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 18
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20100101")
var_Chart:MarkTimeZone("Z1",SToD("20100104"),SToD("20100108"),16744544,nil)
var_Chart:MarkTimeZone("Z2",SToD("20100112"),SToD("20100118"),16761952,nil)
|
|
1156
|
How can I determine the zone from the cursor
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
OutputDebugString(String2Psz( AsString(var_Chart:[TimeZoneFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 18
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20100101")
var_Chart:MarkTimeZone("Z1",SToD("20100104"),SToD("20100108"),16744544,nil)
var_Chart:MarkTimeZone("Z2",SToD("20100112"),SToD("20100118"),16761952,nil)
|
|
1155
|
How can I highlight multiple date-time zones (ranges)
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 18
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20100101")
var_Chart:MarkTimeZone("Z1",SToD("20100104"),SToD("20100108"),16744544,nil)
var_Chart:MarkTimeZone("Z2",SToD("20100112"),SToD("20100118"),16761952,nil)
|
|
1154
|
How can I highlight a date-time range
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 18
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20100101")
var_Chart:MarkTimeZone("Z1",SToD("20100104"),SToD("20100108"),16744544,nil)
|
|
1153
|
How do I get the list of selected date
METHOD OCX_Exontrol1ChartEndChanging(Operation) CLASS MainDialog
// ChartEndChanging event - Occurs after the chart has been changed.
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:SelectDates) ))
RETURN NIL
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 0
var_Chart:MarkTodayColor := var_Chart:BackColor
|
|
1152
|
Is there any function I can use to find the bars that intersect with the current bar
METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
// BarResizing event - Occurs when a bar is moving or resizing.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
OutputDebugString(String2Psz( AsString(Key) ))
OutputDebugString(String2Psz( "intesect with" ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,Item,Key,exBarIntersectWithAsString]) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exAllLines
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:LevelCount := 2
var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsOffset
var_Chart:ResizeUnitScale := exHour
var_Chart:AllowCreateBar := exCreateBarAuto
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Default")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A1","A1")
var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010105"),"A2","A2")
var_Items:AddBar(h1,"Task",SToD("20010104"),SToD("20010107"),"A3","A3")
oDCOCX_Exontrol1:EndUpdate()
|
|
1151
|
Is it possible to order the bars on top of other bars
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exAllLines
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:LevelCount := 2
var_Chart:Bars:Copy("Task","NTask"):OverlaidType := exOverlaidBarsOffset
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Default")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010105"),"A2",nil)
var_Items:AddBar(h1,"Task",SToD("20010104"),SToD("20010107"),"A3",nil)
h2 := var_Items:AddItem("Overlaid")
var_Items:AddBar(h2,"NTask",SToD("20010102"),SToD("20010104"),"A1",nil)
var_Items:AddBar(h2,"NTask",SToD("20010103"),SToD("20010105"),"A2",nil)
var_Items:AddBar(h2,"NTask",SToD("20010104"),SToD("20010107"),"A3",nil)
var_Items:GroupBars(h1,"A1",true,h2,"A1",true,nil,nil)
var_Items:GroupBars(h1,"A1",false,h2,"A1",false,nil,nil)
var_Items:GroupBars(h1,"A2",true,h2,"A2",true,nil,nil)
var_Items:GroupBars(h1,"A2",false,h2,"A2",false,nil,nil)
var_Items:GroupBars(h1,"A3",true,h2,"A3",true,nil,nil)
var_Items:GroupBars(h1,"A3",false,h2,"A3",false,nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1150
|
Is it possible to order the bars on top of other bars (have different colurs so that they can be seen)
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exAllLines
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:LevelCount := 2
var_Chart:Bars:Copy("Task","NTask"):OverlaidType := exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Default")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010105"),"A2",nil)
var_Items:AddBar(h1,"Task",SToD("20010104"),SToD("20010107"),"A3",nil)
h2 := var_Items:AddItem("Overlaid")
var_Items:AddBar(h2,"NTask",SToD("20010102"),SToD("20010104"),"A1",nil)
var_Items:AddBar(h2,"NTask",SToD("20010103"),SToD("20010105"),"A2",nil)
var_Items:AddBar(h2,"NTask",SToD("20010104"),SToD("20010107"),"A3",nil)
var_Items:GroupBars(h1,"A1",true,h2,"A1",true,nil,nil)
var_Items:GroupBars(h1,"A1",false,h2,"A1",false,nil,nil)
var_Items:GroupBars(h1,"A2",true,h2,"A2",true,nil,nil)
var_Items:GroupBars(h1,"A2",false,h2,"A2",false,nil,nil)
var_Items:GroupBars(h1,"A3",true,h2,"A3",true,nil,nil)
var_Items:GroupBars(h1,"A3",false,h2,"A3",false,nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1149
|
Is it possible to layer bars on top of other bars (have different colurs so that they can be seen)
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:LevelCount := 2
var_Chart:Bars:Copy("Task","NTask"):OverlaidType := exOverlaidBarsOffset
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Default")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010105"),"A2",nil)
var_Items:AddBar(h1,"Task",SToD("20010104"),SToD("20010107"),"A3",nil)
h2 := var_Items:AddItem("Overlaid")
var_Items:AddBar(h2,"NTask",SToD("20010102"),SToD("20010104"),"A1",nil)
var_Items:AddBar(h2,"NTask",SToD("20010103"),SToD("20010105"),"A2",nil)
var_Items:AddBar(h2,"NTask",SToD("20010104"),SToD("20010107"),"A3",nil)
var_Items:GroupBars(h1,"A1",true,h2,"A1",true,nil,nil)
var_Items:GroupBars(h1,"A1",false,h2,"A1",false,nil,nil)
var_Items:GroupBars(h1,"A2",true,h2,"A2",true,nil,nil)
var_Items:GroupBars(h1,"A2",false,h2,"A2",false,nil,nil)
var_Items:GroupBars(h1,"A3",true,h2,"A3",true,nil,nil)
var_Items:GroupBars(h1,"A3",false,h2,"A3",false,nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1148
|
My skin(EBN) bars are not shown a different color in the overview. What can I do
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:[Item,"Task"]:Color := 0x1000000
var_Chart:[PaneWidth,false] := 48
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:FirstVisibleDate := SToD("20010111")
var_Chart:LevelCount := 2
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),1,nil)
var_Items:AddBar(h,"Task",SToD("20010202"),SToD("20010204"),2,nil)
var_Items:[ItemBar,h,2,exBarColor] := 16776960
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010202"),SToD("20010204"),"",nil)
var_Items:[ItemBar,h,"",exBarColor] := 255
oDCOCX_Exontrol1:EndUpdate()
|
|
1147
|
How do I colour the lines in the overview section to match the bars they represent on the main chart
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:LevelCount := 2
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),1,nil)
var_Items:AddBar(h,"Task",SToD("20010202"),SToD("20010204"),2,nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010202"),SToD("20010204"),"",nil)
var_Items:[ItemBar,h,"",exBarColor] := 255
oDCOCX_Exontrol1:EndUpdate()
|
|
1146
|
How do I catch the delete key (down) on a bar
METHOD OCX_Exontrol1KeyDown(KeyCode,Shift) CLASS MainDialog
// KeyDown event - Occurs when the user presses a key while an object has the focus.
OutputDebugString(String2Psz( AsString(KeyCode) ))
OutputDebugString(String2Psz( AsString(Shift) ))
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001227")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 48
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Pattern := exPatternBox
var_Bar:Height := 13
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K1","This is a bit of text that is not clipped")
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K1","This is a bit of text that get's clipped")
var_Items:[ItemBar,h,"K1",exBarHAlignCaption] := 3
var_Items:[ItemBar,h,"K1",exBarToolTip] := var_Items:[ItemBar,h,"K1",exBarCaption]
oDCOCX_Exontrol1:EndUpdate()
|
|
1145
|
Is it possible to colour a particular column, I mean the cell's foreground color
local var_Columns as IColumns
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1",nil)
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem(0),1] := 1
var_Items:[CellValue,var_Items:AddItem(2),1] := 3
var_Items:[CellValue,var_Items:AddItem(4),1] := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
1144
|
Is it possible to colour a particular column for specified values
local var_Columns as IColumns
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("int(%1) in (3,4,5)",nil)
var_ConditionalFormat:BackColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem(0),1] := 1
var_Items:[CellValue,var_Items:AddItem(2),1] := 3
var_Items:[CellValue,var_Items:AddItem(4),1] := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
1143
|
Is it possible to colour a particular column
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exCellBackColor] := 255
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem(0),1] := 1
var_Items:[CellValue,var_Items:AddItem(2),1] := 3
var_Items:[CellValue,var_Items:AddItem(4),1] := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
1142
|
How do i get all the children items that are under a certain parent Item handle
local var_Items,var_Items1 as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("P")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items1 := oDCOCX_Exontrol1:Items
hChild := var_Items1:[ItemChild,var_Items1:FirstVisibleItem]
OutputDebugString(String2Psz( AsString(var_Items1:[CellValue,hChild,0]) ))
OutputDebugString(String2Psz( AsString(var_Items1:[CellValue,var_Items1:[NextSiblingItem,hChild],0]) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1141
|
How can I access the control's scroll bar so I can change its appearance
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 0
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exHSThumb] := 0x1000000
oDCOCX_Exontrol1:EndUpdate()
|
|
1140
|
How can I show my bars using the parts of the current theme
local var_Appearance as IAppearance
local var_Bars as IBars
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"XP:Button 1 1")
var_Appearance:Add(2,"XP:Button 1 2")
var_Appearance:Add(3,"XP:ScrollBar 3 1")
var_Appearance:Add(4,"XP:ScrollBar 3 2")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Bars := var_Chart:Bars
var_Bars:Add("B1"):Color := 0x1000000
var_Bars:Add("B2"):Color := 0x2000000
var_Bars:Add("S1"):Color := 0x3000000
var_Bars:Add("S2"):Color := 0x4000000
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Button1"),"B1",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Button 2"),"B2",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Scrollbar 1"),"S1",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Scrollbar 2"),"S2",SToD("20010102"),SToD("20010104"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1139
|
How do I hide the text on a bar if the text is to big for the bar length
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001227")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 48
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Pattern := exPatternBox
var_Bar:Height := 13
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K1","This is a bit of text that is not clipped")
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K1","This is a bit of text that get's clipped")
var_Items:[ItemBar,h,"K1",exBarHAlignCaption] := 3
var_Items:[ItemBar,h,"K1",exBarToolTip] := var_Items:[ItemBar,h,"K1",exBarCaption]
|
|
1138
|
Is it possible to change the color for non-working parts of the bar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:NonworkingDaysColor := RGB(240,250,240)
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010116"),nil,nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010116"),"",nil)
var_Items:[ItemBar,h,"",exBarNonWorkingColor] := 65280
oDCOCX_Exontrol1:EndUpdate()
|
|
1137
|
Is it possible to change the color for the percent bar being displayed inside a specified bar only
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:Bars:Add("Task%Progress")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task%Progress",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarPercent] := 0.4
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task%Progress",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarPercent] := 0.5
var_Items:[ItemBar,h,"K1",exBarPercentColor] := 255
|
|
1136
|
How do I get a handle on the item before adding the bar
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:Columns:Add("Tasks")
IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}:Visible := false
IColumn{oDCOCX_Exontrol1:Columns:Add("End")}:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 0")
var_Items:[CellValue,h1,1] := SToD("20060921")
var_Items:[CellValue,h1,2] := SToD("20060924")
var_Items:AddBar(h1,"Task",var_Items:[CellValue,h1,1],var_Items:[CellValue,h1,2],nil,nil)
h2 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:[CellValue,h2,1] := SToD("20060925")
var_Items:[CellValue,h2,2] := SToD("20060928")
var_Items:AddBar(h2,"Task",var_Items:[CellValue,h2,1],var_Items:[CellValue,h2,2],nil,nil)
h3 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:[CellValue,h3,1] := SToD("20060929")
var_Items:[CellValue,h3,2] := SToD("20061002")
var_Items:AddBar(h3,"Task",var_Items:[CellValue,h3,1],var_Items:[CellValue,h3,2],nil,nil)
var_Items:AddItem(var_Items:ItemCount)
oDCOCX_Exontrol1:EndUpdate()
|
|
1135
|
Is there an Items method that I can use to loop around to compare the item's user data against
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:[ItemData,var_Items:InsertItem(h,nil,"Child 2")] := 1234
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,var_Items:[FindItemData,1234,nil]] := true
|
|
1134
|
How do I make the tooltip box wider to allow for longer text
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ToolTipWidth := 328
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarToolTip] := "This is a bit of text that's displayed when the cursor hovers the bar"
|
|
1133
|
How do i set the default timeslots to say hours or minutes
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:LevelCount := 2
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Chart:OverviewZoomUnit := 24
var_Chart:OverviewZoomCaption := "Y|½Y|¼Y|Mo|T|W|D|H|Mi|S"
var_Chart:UnitScale := exMinute
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010116"),SToD("20010125"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 4"),"Task",SToD("20010216"),SToD("20010225"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1132
|
Can I use icons or images in the text in the overview zoom buttons (Sec., Min., Hour, Month...)
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:LevelCount := 2
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Chart:OverviewZoomUnit := 24
var_Chart:OverviewHeight := 58
var_Chart:OverviewZoomCaption := "Y<br>e<br>a<br>r|½Y|¼Y|M<br>o<br>n<br>t<br>h|T|W<br>e<br>e<br>w|<img>pic1:28<img>|H<br>o<br>u<br>r|M<br>i<br>n|S<br>e<br>c"
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010116"),SToD("20010125"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 4"),"Task",SToD("20010216"),SToD("20010225"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1131
|
Can I use icons or images in the text in the overview zoom buttons (Sec., Min., Hour, Month...)
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:LevelCount := 2
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Chart:OverviewZoomUnit := 24
var_Chart:OverviewZoomCaption := "Y|½Y|¼Y|<img>2<img>|T|W|<img>1<img>|H|M|S"
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010116"),SToD("20010125"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 4"),"Task",SToD("20010216"),SToD("20010225"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1130
|
How do I change (for localisation) the text in the buttons like (Sec., Min., Hour, Month...)
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:LevelCount := 2
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Chart:OverviewZoomUnit := 24
var_Chart:OverviewZoomCaption := "Y|½Y|¼Y|Mo|T|W|D|H|Mi|S"
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010116"),SToD("20010125"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 4"),"Task",SToD("20010216"),SToD("20010225"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1129
|
How I can change the Months and Weekdays
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20100201")
var_Chart:LevelCount := 2
var_Chart:UnitWidth := 10
var_Chart:MonthNames := "1 2 3 4 5 6 7 8 9 10 11 12"
var_Chart:WeekDays := "A B C D E F G"
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%mmmm%>"
var_Level:Unit := exMonth
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<font ;6><%ddd%>"
var_Level1:Unit := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
1128
|
How do i get the current window time frame (the start and end) of the gantt chart
METHOD OCX_Exontrol1DateChange() CLASS MainDialog
// DateChange event - Occurs when the first visible date is changed.
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
OutputDebugString(String2Psz( "Start" ))
OutputDebugString(String2Psz( AsString(var_Chart:FirstVisibleDate) ))
OutputDebugString(String2Psz( "" ))
OutputDebugString(String2Psz( "End" ))
OutputDebugString(String2Psz( AsString(var_Chart:[DateFromPoint,var_Chart:[PaneWidth,true],0]) ))
RETURN NIL
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 1
var_Chart:LevelCount := 2
var_Chart:ScrollTo(SToD("20100101"),0)
oDCOCX_Exontrol1:EndUpdate()
|
|
1127
|
When I use this Chart.get_DateFromPoint(exg2antt1.Width, 0) I get date as 0, 30/12/1899, or 12:00:00 AM. What that means
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[DateFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:LevelCount := 2
|
|
1126
|
How do I enable grabing bars to other items/rows (and only enable them to be dropped on certain rows)
METHOD OCX_Exontrol1BarParentChange(Item,Key,NewItem,Cancel) CLASS MainDialog
// BarParentChange event - Occurs just before moving a bar from current item to another item.
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Items:[CellCaption,NewItem,0] ))
Cancel := oDCOCX_Exontrol1:Items:[ItemData,NewItem]
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsTransparent | exOverlaidBarsOffset
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:[EnableItem,h] := false
var_Items:[ItemData,h] := -1
h := var_Items:AddItem("Item 2")
var_Items:[ItemData,h] := 0
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"B",nil)
var_Items:[ItemBar,h,"B",exBarCanMoveToAnother] := true
var_Items:[ItemData,var_Items:AddItem("Item 3")] := 0
h := var_Items:AddItem("Item 4")
var_Items:[EnableItem,h] := false
var_Items:[ItemData,h] := -1
oDCOCX_Exontrol1:EndUpdate()
|
|
1125
|
How can I find out if a date time is a non-working part
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local d,h as USUAL
h := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
d := oDCOCX_Exontrol1:Chart:[DateFromPoint,-1,-1]
OutputDebugString(String2Psz( AsString(d) ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[IsNonworkingDate,d,h]) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("NonWorking")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstWeekDay := exMonday
var_Chart:FirstVisibleDate := SToD("20080124")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Default")
h := var_Items:AddItem("January")
var_Items:[ItemNonworkingUnits,h,false] := "month(value) = 1"
h := var_Items:AddItem("February, Saturday, Sunday")
var_Items:[ItemNonworkingUnits,h,false] := "month(value) = 2 or (weekday(value) = 0 or weekday(value) = 6)"
h := var_Items:AddItem("Sunday")
var_Items:[ItemNonworkingUnits,h,false] := "weekday(value) = 0"
oDCOCX_Exontrol1:EndUpdate()
|
|
1124
|
I am using the ItemBar property exBarCanMoveToAnother, How do I stop it from being dropped on certain chart rows
METHOD OCX_Exontrol1BarParentChange(Item,Key,NewItem,Cancel) CLASS MainDialog
// BarParentChange event - Occurs just before moving a bar from current item to another item.
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Items:[CellCaption,NewItem,0] ))
Cancel := oDCOCX_Exontrol1:Items:[ItemData,NewItem]
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsTransparent | exOverlaidBarsOffset
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:[EnableItem,h] := false
var_Items:[ItemData,h] := -1
h := var_Items:AddItem("Item 2")
var_Items:[ItemData,h] := 0
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"B",nil)
var_Items:[ItemBar,h,"B",exBarCanMoveToAnother] := true
var_Items:[ItemData,var_Items:AddItem("Item 3")] := 0
var_Items:[ItemData,var_Items:AddItem("Item 4")] := 0
oDCOCX_Exontrol1:EndUpdate()
|
|
1123
|
What is the event I should use to capture the click event on the task item on left hand side
METHOD OCX_Exontrol1Click() CLASS MainDialog
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
local h as USUAL
h := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Items:[CellCaption,h,c] ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1122
|
Can I add a hyperlink assigned to a bar
METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
// AnchorClick event - Occurs when an anchor element is clicked.
OutputDebugString(String2Psz( AsString(AnchorID) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K",nil)
var_Items:[ItemBar,h,"K",exBarCaption] := "default"
var_Items:[ItemBar,h,"K",exBarHAlignCaption] := 18
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K",nil)
var_Items:[ItemBar,h,"K",exBarCaption] := "<a1><b>A 1</b></a>"
var_Items:[ItemBar,h,"K",exBarHAlignCaption] := 18
h := var_Items:AddItem("Task 3")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K",nil)
var_Items:[ItemBar,h,"K",exBarCaption] := "<a2><b>A 2</b></a>"
var_Items:[ItemBar,h,"K",exBarHAlignCaption] := 18
oDCOCX_Exontrol1:EndUpdate()
|
|
1121
|
Can I change the background color only for the text (caption) in a bar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K",nil)
var_Items:[ItemBar,h,"K",exBarCaption] := "default"
var_Items:[ItemBar,h,"K",exBarHAlignCaption] := 18
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K",nil)
var_Items:[ItemBar,h,"K",exBarCaption] := "using <bgcolor=FF0000>bgcolor</bgcolor> HTML attribute "
var_Items:[ItemBar,h,"K",exBarHAlignCaption] := 18
oDCOCX_Exontrol1:EndUpdate()
|
|
1120
|
Can I change the font to display the text (caption) in a bar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K",nil)
var_Items:[ItemBar,h,"K",exBarCaption] := "default"
var_Items:[ItemBar,h,"K",exBarHAlignCaption] := 18
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K",nil)
var_Items:[ItemBar,h,"K",exBarCaption] := "<font Segoe UI;8 >using font HTML attribute </fgcolor>"
var_Items:[ItemBar,h,"K",exBarHAlignCaption] := 18
oDCOCX_Exontrol1:EndUpdate()
|
|
1119
|
How do i change the forecolor of text (caption) in a bar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K",nil)
var_Items:[ItemBar,h,"K",exBarCaption] := "default"
var_Items:[ItemBar,h,"K",exBarHAlignCaption] := 18
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K",nil)
var_Items:[ItemBar,h,"K",exBarCaption] := "<fgcolor=FF0000>using fgcolor HTML attribute </fgcolor>"
var_Items:[ItemBar,h,"K",exBarHAlignCaption] := 18
h := var_Items:AddItem("Task 3")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K",nil)
var_Items:[ItemBar,h,"K",exBarCaption] := "using exBarForeColor"
var_Items:[ItemBar,h,"K",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"K",exBarForeColor] := 65280
oDCOCX_Exontrol1:EndUpdate()
|
|
1118
|
I have noticed that when scrolling horizontally the chart a tooltip shown. is it possible to actually do the scrolling without showing the tooltip
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:AllowLinkBars := true
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 48
var_Chart:ToolTip := ""
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050625"),"A",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050702"),"B",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1117
|
How can I add a bar to be treated as a nonworking part like a "holidays" bar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowNonworkingBars := true
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:[ItemNonworkingUnits,h,false] := "weekday(value) in (0,6)"
var_Items:AddBar(h,"",SToD("20010102"),SToD("20010105"),"A","holyday")
var_Items:[ItemBar,h,"A",exBarTreatAsNonworking] := true
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010112"),"Z",nil)
var_Items:[ItemBar,h,"Z",exBarKeepWorkingCount] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1116
|
Is it possible to add bars that act like a non-working fixed part or the item
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowNonworkingBars := true
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:[ItemNonworkingUnits,h,false] := "weekday(value) in (0,6)"
var_Items:AddBar(h,"",SToD("20010103"),SToD("20010106"),"h","holyday")
var_Items:[ItemBar,h,"h",exBarTreatAsNonworking] := true
var_Items:[ItemBar,h,"h",exBarSelectable] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
1115
|
Is it possible to add bars that act like a non-working part or the item
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowNonworkingBars := true
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:[ItemNonworkingUnits,h,false] := "weekday(value) in (0,6)"
var_Items:AddBar(h,"",SToD("20010103"),SToD("20010106"),"h","holyday")
var_Items:[ItemBar,h,"h",exBarTreatAsNonworking] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1114
|
How can I change the both dates for the bar at once
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20050621")
var_Chart:ShowEmptyBars := 1
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Test")
var_Items:AddBar(h,"Task",SToD("20050622"),SToD("20050626"),"",nil)
var_Items:AddBar(h,"Task",SToD("20050627"),SToD("20050629"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1113
|
How can I get the selected bars in the chart
METHOD OCX_Exontrol1ChartSelectionChanged() CLASS MainDialog
// ChartSelectionChanged event - Occurs when the user selects objects in the chart area.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[SelectedObjects,exSelectBarsOnly]) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:AllowLinkBars := true
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050625"),"A",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050702"),"B",nil)
var_Items:[ItemBar,var_Items:FirstVisibleItem,var_Items:[FirstItemBar,var_Items:FirstVisibleItem],exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1112
|
How can I list the actions that can be performed by undo operations
METHOD OCX_Exontrol1ChartEndChanging(Operation) CLASS MainDialog
// ChartEndChanging event - Occurs after the chart has been changed.
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Chart:[UndoListAction,nil,nil] ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:AllowLinkBars := false
oDCOCX_Exontrol1:Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsTransparent | exOverlaidBarsOffset
oDCOCX_Exontrol1:Chart:AllowUndoRedo := true
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 32
oDCOCX_Exontrol1:Chart:Bars:Add("Task:Split"):Shortcut := "Task"
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),"A",nil)
h := var_Items:AddItem("Item 2")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010109"),"B",nil)
var_Items:[ItemBar,h,"B",exBarCanMoveToAnother] := true
var_Items:[ItemBar,h,"B",exBarKeepWorkingCount] := true
var_Items:[ItemNonworkingUnits,var_Items:AddItem("Item 3"),false] := "weekday(value)=0"
var_Items:[ItemNonworkingUnits,var_Items:AddItem("Item 4"),false] := "weekday(value) in (3,5)"
oDCOCX_Exontrol1:EndUpdate()
|
|
1111
|
How can I change the predefined labels being displayed in the chart's header so it shows the data in short format with no literals
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:LevelCount := 3
var_Chart:[Label,exYear] := "<%yy%><|><%yyyy%>"
var_Chart:[Label,exHalfYear] := ""
var_Chart:[Label,exQuarterYear] := ""
var_Chart:[Label,exMonth] := "<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>"
var_Chart:[Label,exThirdMonth] := ""
var_Chart:[Label,exWeek] := "<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096"
var_Chart:[Label,exHour] := "<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>65536"
var_Chart:[Label,exMinute] := "<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
var_Chart:[Label,exSecond] := "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
var_Chart:[LabelToolTip,exYear] := "<%yyyy%>"
var_Chart:[LabelToolTip,exHalfYear] := ""
var_Chart:[LabelToolTip,exQuarterYear] := ""
var_Chart:[LabelToolTip,exMonth] := "<%m%>/<%yyyy%>"
var_Chart:[LabelToolTip,exThirdMonth] := ""
var_Chart:[LabelToolTip,exWeek] := "<%m%>/<%d%>/<%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%m%>/<%d%>/<%yyyy%>"
var_Chart:[LabelToolTip,exHour] := "<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>"
var_Chart:[LabelToolTip,exMinute] := "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
var_Chart:[LabelToolTip,exSecond] := "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
1110
|
The histogram does not show (correctly) the bars, even if I changed the Bar.HistogramPattern and Bar.HistogramColor properties. What can be wrong
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20001227")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternBDiagonal
var_Bar:HistogramColor := RGB(255,0,0)
var_Chart:ResizeUnitScale := exHour
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102 08:00:00"),SToD("20010102 12:00:00"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010101 08:00:00"),SToD("20010105 12:00:00"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1109
|
How can I change the default key for the newly added link from "Link1" to my identifier
METHOD OCX_Exontrol1AddLink(LinkKey) CLASS MainDialog
// AddLink event - Occurs when the user links two bars using the mouse.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddLink("newIDlink",var_Items:[Link,LinkKey,exLinkStartItem],var_Items:[Link,LinkKey,exLinkStartBar],var_Items:[Link,LinkKey,exLinkEndItem],var_Items:[Link,LinkKey,exLinkEndBar])
var_Items:RemoveLink(LinkKey)
RETURN NIL
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[LinkFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:AllowLinkBars := true
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050625"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050702"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1108
|
How can I change the default key for the newly added link from "Link1" to my identifier
METHOD OCX_Exontrol1AllowLink(StartItem,StartBarKey,EndItem,EndBarKey,LinkKey,Cancel) CLASS MainDialog
// AllowLink event - Notifies at runtime when a link between two bars is possible.
LinkKey := "newIDlink"
RETURN NIL
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[LinkFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:AllowLinkBars := true
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050625"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050702"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1107
|
We want to have a Task ID column as the first column that shows the row number. How can we do that
METHOD OCX_Exontrol1FormatColumn(Item,ColIndex,Value) CLASS MainDialog
// FormatColumn event - Fired when a cell requires to format its caption.
Value := oDCOCX_Exontrol1:Items:[ItemPosition,Item]
RETURN NIL
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:Width := 24
var_Column:AllowSizing := false
var_Column:Position := 0
var_Column:FireFormatColumn := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Task A")
var_Items:AddItem("Task B")
var_Items:AddItem("Task C")
var_Items:AddItem("Task D")
oDCOCX_Exontrol1:EndUpdate()
|
|
1106
|
How can I get the caption of focused item
METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
// SelectionChanged event - Fired after a new item has been selected.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
OutputDebugString(String2Psz( "Handle" ))
OutputDebugString(String2Psz( AsString(var_Items:FocusItem) ))
OutputDebugString(String2Psz( "Caption" ))
OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:FocusItem,0] ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1105
|
How can I get the caption of selected item
METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
// SelectionChanged event - Fired after a new item has been selected.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
OutputDebugString(String2Psz( "Handle" ))
OutputDebugString(String2Psz( AsString(var_Items:[SelectedItem,0]) ))
OutputDebugString(String2Psz( "Caption" ))
OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:[SelectedItem,0],0] ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1104
|
How can I get the link from the point
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[LinkFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001229")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "L1"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "L2"
oDCOCX_Exontrol1:EndUpdate()
|
|
1103
|
How can I get the bar from the point
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001229")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010104"),SToD("20010106"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
oDCOCX_Exontrol1:EndUpdate()
|
|
1102
|
How can I get the level from the cursor
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[LevelFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20100625")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 4
|
|
1101
|
How can I get the date from the cursor
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[DateFromPoint,-1,-1]) ))
RETURN NIL
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
|